home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Boot / condition.em < prev    next >
Encoding:
Text File  |  1993-07-12  |  521 b   |  37 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: condition.em
  4. ;; Date: Sat Jul  3 17:55:35 1993
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;
  9.  
  10. (defmodule condition
  11.   (init
  12.    gens
  13.    macros0
  14.    extras0
  15.    thread
  16.    )
  17.   ()
  18.   
  19.   (export <Internal-Error> 
  20.       ;;<wrong-cond-class> 
  21.       signal
  22.       with-handler
  23.       conditionp
  24.       condition-message
  25.       error
  26.       cerror
  27.       ;;defcondition
  28.       )
  29.  
  30.   (defun signal (cond cont . thread)
  31.     (if (null thread)
  32.     (internal-signal cond cont)
  33.       (thread-signal cond cont (car thread))))
  34.   
  35.   ;; end module
  36.   )
  37.